home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / daten / aspell / doc / register < prev   
Encoding:
Text File  |  1995-08-29  |  2.3 KB  |  110 lines
  1. ; Registration script for AlphaSpell
  2. ; Copyright (c) 1995 Fergus Duniho
  3.  
  4. (set file
  5.     (tackon
  6.         (askdir
  7.             (prompt
  8.                 "This is not an installation script. It just takes advantage of "
  9.                 "the Installer program to create a registration form for "
  10.                 "AlphaSpell. Where do you want this form to go?"
  11.             )
  12.             (help @askdir-help)
  13.             (default "RAM:")
  14.         )
  15.         "Registration-Form"
  16.     )
  17. )
  18.  
  19. (set name
  20.     (askstring
  21.         (prompt "What is your name?\nE.g. Fergus Duniho")
  22.         (help @askstring-help)
  23.     )
  24. )
  25.  
  26. (set email
  27.     (askstring
  28.         (prompt "What is your email address?\nE.g. fdnh@troi.cc.rochester.edu")
  29.         (help @askstring-help)
  30.     )
  31. )
  32.  
  33. (set response
  34.     (askchoice
  35.         (prompt "What country do you live in?")
  36.         (help @askchoice-help)
  37.         (choices "United States" "Canada" "Other")
  38.     )
  39. )
  40.  
  41. (if (= response 0) (
  42.     (set country "USA")
  43.     (set state
  44.         (askstring
  45.             (prompt "What state do you live in?")
  46.             (help @askstring-help)
  47.         )
  48.     )
  49. ))
  50.  
  51. (if (= response 1) (
  52.     (set country "Canada")
  53.     (set state
  54.         (askstring
  55.             (prompt "What province do you live in?")
  56.             (help @askstring-help)
  57.         )
  58.     )
  59. ))
  60.  
  61. (if (= response 2)
  62.     (set country
  63.         (askstring
  64.             (prompt "What country do you live in?")
  65.             (help @askstring-help)
  66.         )
  67.     )
  68. )
  69.  
  70. (set zipcode
  71.     (askstring
  72.         (prompt "What is your zipcode?\nE.g. 14611-4148")
  73.         (help @askstring-help)
  74.     )
  75. )
  76.  
  77. (set city
  78.     (askstring
  79.         (prompt "What is the name of your city?\nE.g. Rochester")
  80.         (help @askstring-help)
  81.     )
  82. )
  83.  
  84. (set address
  85.     (askstring
  86.         (prompt
  87.             "What is your box number or street address?\n"
  88.             "E.g. 1095 Genesee St."
  89.         )
  90.         (help @askstring-help)
  91.     )
  92. )
  93.  
  94. (run
  95.     (cat
  96.         "echo >" file " \"Please mail this form to:*n*n"
  97.         "Fergus Duniho*n1095 Genesee St.*nRochester, NY 14611-4148*n*n"
  98.         "Enclosed is $20.00 for the keyfile to AlphaSpell.*n"
  99.         "Please send it to:*n*n" name "*n" email "*n"
  100.         address "*n" city ", " state " " country " " zipcode "\""
  101.     )
  102. )
  103.  
  104. (message
  105.     "The completed registration form is called " file ". Print it out "
  106.     "and mail it to me to register AlphaSpell."
  107. )
  108.  
  109. (exit (quiet))
  110.